//    255   100,100   30 
$time = $_time_t + 30 // 30 
GETSCREEN
WHILE((PXL (100, 100) ! 255) & ($time > $_time_t))
   WAITMS (100)
   GETSCREEN
END_CYC